home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 169 / 169.d81 / b.toon 169 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  127 lines
  1. 10 poke56,56:poke55,0:clr:poke53371,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 22 hz$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  4. 24 sp$="                                        "
  5. 26 eb$(0)="  @    @  "
  6. 27 eb$(1)=" @    @   "
  7. 28 eb$(2)="   @    @ "
  8. 30 poke53281,0:poke53280,0:print"[147]"
  9. 32 x=1:y=0:xx=36:yy=21:gosub100
  10. 34 printtab(4)"[129][176][192][192][178][192][192][174] [176][192][192][192][192][192][174] [176][192][192][192][192][192][174] [176][192][192][174]  [176]
  11. 35 [153][163]4)"   (NULL)    (NULL)     (NULL) (NULL)     (NULL) (NULL)  (NULL)  (NULL)
  12. 36 printtab(4)"   [177]    [173][192][192][192][192][192][189] [173][192][192][192][192][192][189] [189]  [173][192][192][189]
  13. 38 [153]"list        (NULL)left$val (NULL)right$chr$left$(NULL)(NULL) (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  14. 40 [153]"     (NULL)(NULL)(NULL)(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)left$ len(NULL)(NULL)(NULL)val(NULL)(NULL)
  15. 50 ifgthen120
  16. 60 g=1
  17. 70 sys57812"toon.font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  18. 72 poke53272,31
  19. 80 sys57812"toon.ml",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  20. 90 sys57812"toon ?.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  21. 92 sc=204*256:syssc,96,92,56
  22. 94 md=peek(64*256)
  23. 96 goto120
  24. 100 poke214,y:print
  25. 102 printtab(x)"[176]"left$(hz$,xx)"[174]"
  26. 104 fori=1toyy:printtab(x)"[221]"left$(sp$,xx)"[221]":next
  27. 106 printtab(x)"[173]"left$(hz$,xx)"[189]"
  28. 108 return
  29. 110 md=peek(64*256)
  30. 120 print" 1[154] [202]ust show the toon.
  31. 130 [153]" 2cont (NULL)how the toon and print it on a
  32. 140 print"   7-pin (1525-emulating) printer.
  33. 150 [153]" 3cont (NULL)how the toon and print it on an
  34. 160 print"   8-pin ([197]pson-emulating) printer.
  35. 170 [153]" 4cont valnter a caption for the toon.
  36. 180 print" 5[159] [210]eturn to [204][207][193][196][211][212][193][210].
  37. 190 [153]"list (NULL)ake sure your printer is on-line.
  38. 200 poke198,0
  39. 206 ifrnd(1)>.98thenpoke214,3:print:printtab(13)eb$(rnd(1)*3)
  40. 210 geta$:ifa$<"1"ora$>"5"then206
  41. 220 a1=val(a$):ifa1=5then40000
  42. 230 ifa1=4then690
  43. 240 ifa1=1then600
  44. 250 ifa1=2thentb=80:goto430
  45. 260 gosub680
  46. 270 poke214,11:print
  47. 280 printtab(7)"    [196][197][206][211][201][212][217]      [215][201][196][212][200]
  48. 290 [153][163]7)" 1cont (NULL)ingle       wide
  49. 300 printtab(7)" 2[154] [195]rt          normal
  50. 310 [153][163]7)" 3cont str$ouble       narrow
  51. 320 printtab(7)" 4[154] [196]ouble       wide
  52. 330 [153][163]7)" 5cont (NULL)uad         narrow
  53. 340 printtab(7)" 6[154] [209]uad         normal
  54. 342 [153][163]7)" 7open peekack to the (NULL)ain (NULL)enu
  55. 350 poke198,0
  56. 360 geta$:ifa$<"1"ora$>"7"then360
  57. 370 a2=val(a$):ifa2=1then ds=0:bt=1:tb=80
  58. 380 ifa2=2then ds=4:bt=1:tb=120
  59. 390 ifa2=3then ds=1:bt=1:tb=160
  60. 400 ifa2=4then ds=1:bt=2:tb=80
  61. 410 ifa2=5then ds=3:bt=2:tb=160
  62. 420 ifa2=6then ds=3:bt=3:tb=120
  63. 422 ifa2=7then30
  64. 430 gosub680
  65. 440 poke214,11:print
  66. 450 printtab(9)"    [212][193][194][160][208][207][211][201][212][201][207][206]
  67. 460 [153][163]9)" 1cont (NULL)eft
  68. 470 printtab(9)" 2[154]     [195]enter
  69. 480 [153][163]9)" 3cont         (NULL)ight
  70. 490 ifa2<>3anda2<>5then520
  71. 500 printtab(9)" 4[154]   [195]enter-left
  72. 510 [153][163]9)" 5cont       lenenter-right
  73. 512 printtab(9)" 6[159] [194]ack to [205]ain [205]enu
  74. 520 [151]198,0
  75. 530 [161]a$:[139]a$[179]"1"[176]a$[177]"6"[167]530
  76. 532 [139]a$[178]"6"[167]30
  77. 540 [139]a$[178]"1"[167]tb[178]0:[137]600
  78. 550 [139]a$[178]"2"[167]600
  79. 560 [139]a$[178]"3"[167]tb[178]tb[172]2:[137]600
  80. 570 [139]a2[179][177]3[175]a2[179][177]5[167]520
  81. 580 [139]a$[178]"4"[167]tb[178]53:[137]600
  82. 590 tb[178]266
  83. 600 [151]251,64:[151]252,96:[151]253,92:[139]g[178]1[167][158]51456
  84. 610 [158]51459
  85. 620 [139]a1[178]2[167][158]49152,tb,md:[137]660
  86. 630 [139]a1[178]3[167][158]49155,tb,ds,bt,bt[172]320,md:[137]660
  87. 640 [151]198,0
  88. 650 [161]a$:[139]a$[178]""[167]650
  89. 660 [151]186,dv:[158]51459
  90. 670 [137]30
  91. 680 [151]214,8:[153]:[129]i[178]1[164]14:[153][163]2)[200](sp$,35):[130]:[142]
  92. 690 [151]251,64:[151]252,96:[151]253,92:[158]51456
  93. 700 [151]214,17:[153]
  94. 710 [158]51459
  95. 720 [158]sc[170]6,1,23,"print#valnter your caption here. (NULL)hen done,
  96. 730 syssc+6,1,24,"press [198]1. [208]ress [211][208][193][195][197] to begin.
  97. 740 [151]198,0
  98. 750 [161]a$:[139]a$[179][177]" "[167]750
  99. 760 [158]sc[170]6,0,23,"                                        "
  100. 770 [158]sc[170]6,0,24,"                                        stop"
  101. 780 [158]sc[170]6,1,23," waitcmd"
  102. 790 [151]198,0:[158]sc[170]3," waitcmd"
  103. 800 [161]a$:[139]a$[178]""[167]800
  104. 810 [139]a$[178][199](133)[167][158]sc[170]3," ":[158]51459:g[178]2:[137]30
  105. 820 [139]a$[178][199](20)[167][158]sc[170]3," cmdcmd":[137]790
  106. 830 [139]a$[178]"cmd"[167][158]sc[170]3," cmdcmd waitcmd":[137]790
  107. 840 [139]a$[178]""[167][158]sc[170]3,"  waitcmd":[137]790
  108. 850 [139]a$[178]""[167][158]sc[170]3," cmd waitcmd":[137]790
  109. 860 [139]a$[178]"on"[167][158]sc[170]3," oncmd waitcmd":[137]790
  110. 870 [139]a$[178][199](34)[167]790
  111. 880 [139]a$[178][199](13)[167][158]sc[170]3," "
  112. 890 [139]a$[177]"(NULL)"[167]790
  113. 900 [139]a$[177]"_"[175]a$[179]"atn"[167]790
  114. 910 [158]sc[170]3,a$
  115. 920 [137]790
  116. 10000 d[178][194](186):n$[178]"b.toon 169":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  117. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  118. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  119. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  120. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  121. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  122. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  123. 40060 [130]:[142]
  124. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  125. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  126. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  127.